######################################################################
# Time-stamp: <04/07/29 15:52:11 ostolop>
#
# Data Upload dynamic data routines
######################################################################
package EP::EPC::Interface::User_Preferences;
use strict;

use EP::EPC::Interface;

use XML::LibXSLT;
use Carp;

use EP::Config;

sub newDD {
  my $proto = shift;
  my $ep_query_doc = shift;
  my $query = shift;
  my $DDD = shift;

  my $class = ref($proto) || $proto;
  my $self  = {};
  bless $self, $class;

  $self->initialize($ep_query_doc, $query, $DDD);
  return $self;
}

sub initialize {
  my $self = shift;
  $self->{epc_query} = shift;
  $self->{query} = shift;
  $self->{DDD} = shift;

  return;
}

sub get_user_configuration {
  my $self = shift;
  my ( $propname ) = @_;

  return $self->{DDD}->{session}->owner->get($propname);
}

1;
